home *** CD-ROM | disk | FTP | other *** search
/ Knitting Made Easy / Knitting.iso / App / Patterns.dxr / behaviors_184_Scroll Track Behavior.ls < prev    next >
Encoding:
Text File  |  2002-04-18  |  360 b   |  14 lines
  1. on mouseDown me
  2.   mousePosition = the mouseV
  3.   indicatorPosition = sendAllSprites(#getIndicatorPosition)
  4.   case 1 of
  5.     (indicatorPosition > mousePosition):
  6.       direction = #up
  7.     (indicatorPosition < mousePosition):
  8.       direction = #down
  9.     (indicatorPosition = mousePosition):
  10.       exit
  11.   end case
  12.   sendAllSprites(#scrollText, direction, #page)
  13. end
  14.